#Plot aligned data with different nr CC's tSNE.
#Color on sample_name, sample_name2, Phase.

For the alignment 30 subspaces were aligned. Below datasets are loaded with different runs of tSNE (on the first 10, 20 and 30 aligned CC’s).

#aligned.10 <- readRDS('../data/10x_cca30-aligned_tsne-1-10.rds')
#aligned.20 <- readRDS('../data/10x_cca30-aligned_tsne-1-20.rds')
aligned.30 <- readRDS('../data/10x_cca30-aligned_tsne-1-30.rds')
#aligned.cc.10 <- readRDS('../data/10x_ccregout_cca30-aligned_tsne-1-10.rds')
aligned.cc.20 <- readRDS('../data/10x_ccregout_cca30-aligned_tsne-1-20.rds')
aligned.cc.30 <- readRDS('../data/10x_ccregout_cca30-aligned_tsne-1-30.rds')

TSNEPlots

TSNEPlots of alignment on CC regressed out data.

LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKCmBgYHtyfQojUGxvdCBhbGlnbmVkIGRhdGEgd2l0aCBkaWZmZXJlbnQgbnIgQ0MncyB0U05FLgojQ29sb3Igb24gc2FtcGxlX25hbWUsIHNhbXBsZV9uYW1lMiwgUGhhc2UuIAoKYGBgCgpGb3IgdGhlIGFsaWdubWVudCAzMCBzdWJzcGFjZXMgd2VyZSBhbGlnbmVkLiBCZWxvdyBkYXRhc2V0cyBhcmUgbG9hZGVkIHdpdGggZGlmZmVyZW50IHJ1bnMgb2YgdFNORSAob24gdGhlIGZpcnN0IDEwLCAyMCBhbmQgMzAgYWxpZ25lZCBDQydzKS4KCmBgYHtyfQphbGlnbmVkLjEwIDwtIHJlYWRSRFMoJy4uL2RhdGEvMTB4X2NjYTMwLWFsaWduZWRfdHNuZS0xLTEwLnJkcycpCmFsaWduZWQuMjAgPC0gcmVhZFJEUygnLi4vZGF0YS8xMHhfY2NhMzAtYWxpZ25lZF90c25lLTEtMjAucmRzJykKYWxpZ25lZC4zMCA8LSByZWFkUkRTKCcuLi9kYXRhLzEweF9jY2EzMC1hbGlnbmVkX3RzbmUtMS0zMC5yZHMnKQoKYWxpZ25lZC5jYy4xMCA8LSByZWFkUkRTKCcuLi9kYXRhLzEweF9jY3JlZ291dF9jY2EzMC1hbGlnbmVkX3RzbmUtMS0xMC5yZHMnKQphbGlnbmVkLmNjLjIwIDwtIHJlYWRSRFMoJy4uL2RhdGEvMTB4X2NjcmVnb3V0X2NjYTMwLWFsaWduZWRfdHNuZS0xLTIwLnJkcycpCmFsaWduZWQuY2MuMzAgPC0gcmVhZFJEUygnLi4vZGF0YS8xMHhfY2NyZWdvdXRfY2NhMzAtYWxpZ25lZF90c25lLTEtMzAucmRzJykKYGBgCgpUU05FUGxvdHMKCmBgYHtyfQpUU05FUGxvdChhbGlnbmVkLjEwLCBncm91cC5ieT0nc2FtcGxlX25hbWUnLCBwdC5zaXplPTAuMSkKYGBgCgpgYGB7cn0KVFNORVBsb3QoYWxpZ25lZC4xMCwgZ3JvdXAuYnk9J1BoYXNlJywgcHQuc2l6ZT0wLjEpCmBgYAoKYGBge3J9ClRTTkVQbG90KGFsaWduZWQuMjAsIGdyb3VwLmJ5PSdzYW1wbGVfbmFtZScsIHB0LnNpemU9MC4xKQpgYGAKCmBgYHtyfQpUU05FUGxvdChhbGlnbmVkLjIwLCBncm91cC5ieT0nUGhhc2UnLCBwdC5zaXplPTAuMSkKYGBgCgpgYGB7cn0KVFNORVBsb3QoYWxpZ25lZC4zMCwgZ3JvdXAuYnk9J3NhbXBsZV9uYW1lJywgcHQuc2l6ZT0wLjEpCmBgYAoKYGBge3J9ClRTTkVQbG90KGFsaWduZWQuMzAsIGdyb3VwLmJ5PSdQaGFzZScsIHB0LnNpemU9MC4xKQpgYGAKClRTTkVQbG90cyBvZiBhbGlnbm1lbnQgb24gQ0MgcmVncmVzc2VkIG91dCBkYXRhLgoKYGBge3J9ClRTTkVQbG90KGFsaWduZWQuY2MuMTAsIGdyb3VwLmJ5PSdzYW1wbGVfbmFtZScsIHB0LnNpemU9MC4xKQpgYGAKCmBgYHtyfQpUU05FUGxvdChhbGlnbmVkLmNjLjEwLCBncm91cC5ieT0nUGhhc2UnLCBwdC5zaXplPTAuMSkKYGBgCgpgYGB7cn0KVFNORVBsb3QoYWxpZ25lZC5jYy4xMCwgZ3JvdXAuYnk9J3NhbXBsZV9uYW1lMicsIHB0LnNpemU9MC4xKQpgYGAKCgpgYGB7cn0KVFNORVBsb3QoYWxpZ25lZC5jYy4yMCwgZ3JvdXAuYnk9J3NhbXBsZV9uYW1lJywgcHQuc2l6ZT0wLjEpCmBgYAoKYGBge3J9ClRTTkVQbG90KGFsaWduZWQuY2MuMjAsIGdyb3VwLmJ5PSdzYW1wbGVfbmFtZTInLCBwdC5zaXplPTAuMSkKYGBgCgoKYGBge3J9ClRTTkVQbG90KGFsaWduZWQuY2MuMzAsIGdyb3VwLmJ5PSdzYW1wbGVfbmFtZScsIHB0LnNpemU9MC4xKQpgYGAKCmBgYHtyfQpUU05FUGxvdChhbGlnbmVkLmNjLjMwLCBncm91cC5ieT0nc2FtcGxlX25hbWUyJywgcHQuc2l6ZT0wLjEpCmBgYAoK